home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh20a.d64
/
listing 20
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
342b
|
9 lines
10 PRINTCHR$(147):POKE 53280,5:POKE 53281,6
20 V=53248:POKE V+34,3
30 POKE 53269,4:POKE 2042,13
40 FOR N=0 TO 62:READ Q:POKE 832+N,Q:NEXT
100 DATA 255,255,255,128,0,1,128,0,1,128,0,1,144,0,1,144,0,1,144,0,1,144,0,1
101 DATA 144,0,1,144,0,1,144,0,1,144,0,1,144,0,1,144,0,1,128,0,1,128,0,1
102 DATA 128,0,1,128,0,1,128,0,1,128,0,1,255,255,255
200 X=200:Y=100:POKE 53252,X:POKE 53253,Y